home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1138 / source.zip / FRMCHED.FRM < prev    next >
Text File  |  1995-01-18  |  3KB  |  100 lines
  1. VERSION 2.00
  2. Begin Form frmched 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Editor Setup"
  6.    ClientHeight    =   2028
  7.    ClientLeft      =   2376
  8.    ClientTop       =   3096
  9.    ClientWidth     =   5292
  10.    ClipControls    =   0   'False
  11.    Height          =   2448
  12.    Left            =   2328
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2028
  17.    ScaleWidth      =   5292
  18.    Top             =   2724
  19.    Width           =   5388
  20.    Begin CommandButton cmdcancel 
  21.       Cancel          =   -1  'True
  22.       Caption         =   "C&ancel"
  23.       Height          =   372
  24.       Left            =   3000
  25.       TabIndex        =   3
  26.       Top             =   1440
  27.       Width           =   972
  28.    End
  29.    Begin CommandButton cmdok 
  30.       Caption         =   "&OK"
  31.       Default         =   -1  'True
  32.       Height          =   372
  33.       Left            =   1680
  34.       TabIndex        =   2
  35.       Top             =   1440
  36.       Width           =   972
  37.    End
  38.    Begin TextBox txtexted 
  39.       BackColor       =   &H00C0C0C0&
  40.       Enabled         =   0   'False
  41.       Height          =   372
  42.       Left            =   1200
  43.       TabIndex        =   1
  44.       Top             =   720
  45.       Width           =   3372
  46.    End
  47.    Begin CheckBox chkexted 
  48.       BackColor       =   &H00C0C0C0&
  49.       Caption         =   "&Use External Editor"
  50.       Enabled         =   0   'False
  51.       Height          =   372
  52.       Left            =   840
  53.       TabIndex        =   0
  54.       Top             =   240
  55.       Value           =   1  'Checked
  56.       Width           =   3132
  57.    End
  58. End
  59. Option Explicit
  60.  
  61. Sub chkexted_Click ()
  62.     If chkexted.Value = 0 Then
  63.         txtexted.Enabled = False
  64.     Else
  65.         txtexted.Enabled = True
  66.     End If
  67. End Sub
  68.  
  69. Sub cmdcancel_Click ()
  70.     frmched.Hide
  71. End Sub
  72.  
  73. Sub cmdok_Click ()
  74.     If chkexted.Value Then
  75.         SetINI "Editor", "UseExternalEditor", "Y"
  76.     Else
  77.         SetINI "Editor", "UseExternalEditor", "N"
  78.     End If
  79.     SetINI "Editor", "ExternalEditor", txtexted.Text
  80.  
  81.     frmched.Hide
  82. End Sub
  83.  
  84. Sub Form_Load ()
  85.     left = (screen.Width - frmched.Width) / 2
  86.     top = (screen.Height - frmched.Height) / 2
  87.     
  88.     'If UCase$(GetINI("Editor", "UseExternalEditor", "Y")) = "Y" Then
  89.         chkexted.Value = 1
  90.         txtexted.Enabled = True
  91.     'Else
  92.     '    chkexted.Value = 0
  93.     '    txtexted.Enabled = False
  94.     'End If
  95.  
  96.     txtexted = GetINI("Editor", "ExternalEditor", "notepad.exe")
  97.     
  98. End Sub
  99.  
  100.